Family Album 2.1

home *** CD-ROM | disk | FTP | other *** search

/ Family Album 2.1 / Family Album v2.1.iso / data1.cab / Common / askreqst.sbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 2002-11-16 | 109.3 KB | 1,596 lines

wwwwwwwwwwww wwwwwwwwwwww wwwwwwww wwwwwwww wwwwww wwwwww wwwwww DDDDDD DDDDDD wwwwwwwwwwww wwwwwwwwwy wwwwwwwwwy wwwwwwwp wwwwwww wwwwww wwwwww wwwwwx ggg(( ((((( wwwwp wwwwwp UUUU3UUP XUUUS XUUUUS XUUUU wwwpx xwwwpx xwwwp wwwwwwwwwwww r"wwwwwwwwww wwwwwx wwwwp wwwwp wwwwwwwwww wwwwwwwwwwwpp wwwwp wwwwwpp wwwwww; wwwwwwws wwwwwwwww? wwwwwwwwww wwwwwwwwwwwL wwwwwwwwwwwpt betterRequestBox resizebutton 98101717023025067790175122700 ASYM_TpID betterAskBox ASYM_BeenHere messageBox dialogText buttons fieldAsk BetterAsk_reply buttonClick buttonClick 4BetterAsk_reply >& CRLF & "fieldAsk" close Cancel fieldask PasteSpecial notifyafter PasteSpecial a = h,a)) T,a)) Please type your answer here... resizeButtons PasteSpecial resizeButtons PasteSpecial betterAskBox index. 7/17/99, 10:06:16 AM, Unable to access file C:\WINDOWS\Application Data\Microsoft\Office\Recent\Love.doc.LNK. This file will not be included in the Find Fast index. 7/17/99, 10:06:22 AM, Unable to access file @ ( ( K *ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Group Stage Button Viewer ComboBox Field RecordField Hotword *RHOTWORD* *TbxBase* ( ewer bxBase* ( bxBase* <BookPath> :HDMEDIAPATH System MS Sans Serif MS Sans Serif MS Sans Serif dennyd info_LastSavedBy 23 PM info_LastSaved dennyd 7/22/99 8:43:52 PM MS Sans Serif Denny :13 PM This [Better Ask And Request Box] is a free utility from Denny Dedmore at www.toolbookthings.com. HOW TO USE: The ASKREQST.SBK must be linked before you can call these new functions. In ToolBook 4 & 5 use the Add Extensions option in your File Menu. In ToolBook 6 use the Bound System Books... option in your File Menu...ample of function call: get betterRequestBox( _caption, _icon, _text, _buttons, _width, _position) Value returned from the function, is the Caption of the button chosen. However if X was used to close the Dialog, NULL is returned. _CAPTION: IS SELF EXPLANATORY _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) - IF NULL, NO ICON IS USED AND TEXT SHIFTS TO OCCUPY - AREA WHERE ICON WOULD HAVE BEEN _TEXT: RAW TEXT OR RTF - WILL AUTOSENSE _BUTTONS: LIST OF BUTTON CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] - BUTTONS WILL RESIZE TO SIZE OF LARGEST - IF NULL IS PASSED: A SINGLE BUTTON 'OK" WILL BE USED _WIDTH: WIDTH <IN PAGE UNITS> FOR THE DIALOG BOX - IF NULL, THE FIT WILL BE AS TIGHT AS THE BUTTONS (PLUS A BIT OF PADDING) - IF OVER MAX (MAX IS EQUIVELANT TO 600 PIXELS) THEN MAX IS USED - IF BUTTONS ARE WIDER THAN _WIDTH, THEN BUTTONS OVERRIDE - IF RESULT IS TALLER THAN WIDE, FLIP HEIGHT/WIDTH TO MAKE WIDER THAN TALL, - BUT ONLY IF WIDTH WAS NOT SPECIFIED _POSITION: POSITION IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREEN Example of function call to display a better request box: get betterRequestBox( _caption, _icon, _text, _buttons, _width, _position) Value returned from the function, is the Caption of the button chosen. However if X was used to close the Dialog, NULL is returned. _CAPTION: IS SELF EXPLANATORY _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) - IF NULL, NO ICON IS USED AND TEXT SHIFTS TO OCCUPY - AREA WHERE ICON WOULD HAVE BEEN _TEXT: RAW TEXT OR RTF - WILL AUTOSENSE _BUTTONS: LIST OF BUTTON CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] - BUTTONS WILL RESIZE TO SIZE OF LARGEST - IF NULL IS PASSED: A SINGLE BUTTON 'OK" WILL BE USED _WIDTH: WIDTH <IN PAGE UNITS> FOR THE DIALOG BOX - IF NULL, THE FIT WILL BE AS TIGHT AS THE BUTTONS (PLUS A BIT OF PADDING) - IF OVER MAX (MAX IS EQUIVELANT TO 600 PIXELS) THEN MAX IS USED - IF BUTTONS ARE WIDER THAN _WIDTH, THEN BUTTONS OVERRIDE - IF RESULT IS TALLER THAN WIDE, FLIP HEIGHT/WIDTH TO MAKE WIDER THAN TALL, - BUT ONLY IF WIDTH WAS NOT SPECIFIED _POSITION: POSITION IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREENHAN TALL, - BUT ONLY IF WIDTH WAS NOT SPECIFIED _POSITION: POSITION IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREENNNNNN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREEN Example of function call to display a better Ask box: get betterAskBox( _caption, _icon, _text, _answer, _buttons, _width, _position) The value returned from the function is a String containing 2 textlines. - Textline 1 is the Caption of the button clicked. - Textline 2 is the text typed in by the user. However if X was used to close the dialog, NULL is returned. _CAPTION: IS SELF EXPLANATORY _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) - IF NULL, NO ICON IS USED AND TEXT SHIFTS TO OCCUPY - AREA WHERE ICON WOULD HAVE BEEN _TEXT: RAW TEXT OR RTF - I AUTO-SENSE WHICH YOU SPECIFY _ANSWER: RAW TEXT - THIS WILL BE USED AS THE DEFAULT ANSWER _BUTTONS: LIST OF BUTTON CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] - BUTTONS WILL RESIZE TO SIZE OF LARGEST - IF NULL IS PASSED: A SINGLE BUTTON 'OK" WILL BE USED _WIDTH: WIDTH <IN PAGE UNITS> FOR THE DIALOG BOX - IF NULL, THE FIT WILL BE AS TIGHT AS THE BUTTONS (PLUS A BIT OF PADDING) - IF OVER MAX (MAX IS EQUIVELANT TO 600 PIXELS) THEN MAX IS USED - IF BUTTONS ARE WIDER THAN _WIDTH, THEN BUTTONS OVERRIDE - IF RESULT IS TALLER THAN WIDE, FLIP HEIGHT/WIDTH TO MAKE WIDER THAN TALL, - BUT ONLY IF WIDTH WAS NOT SPECIFIED _POSITION: POSITION IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREENNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNT ONLY IF WIDTH WAS NOT SPECIFIED _POSITION: POSITION IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREEN Better Request Better Askuest YM_BeenHere N IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREEN Better Request Better Askuest ASYM_BeenHere &File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar betterAskBox ASYM_BeenHere messageBox dialogText HOW TO USE: The ASKREQST.SBK must be linked before you can call this new function. In ToolBook 4 & 5 use the Add Extensions option in your File Menu. In ToolBook 6 use the Bound System Books option in your File Menu. Example of function call: get betterAskBox( _caption, _icon, _text, _answer, _buttons, _width, _position) The value returned from the function is a String containing 2 textlines. - Textline 1 is the Caption of the button clicked. - Textline 2 is the text typed in by the user. However if X was used to close the dialog, NULL is returned. _CAPTION: IS SELF EXPLANATORY _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) - IF NULL, NO ICON IS USED AND TEXT SHIFTS TO OCCUPY - AREA WHERE ICON WOULD HAVE BEEN _TEXT: RAW TEXT OR RTF - WILL AUTOSENSE _ANSWER: RAW TEXT THAT YOU WANT DISPLAYED AS THE DEFAULT ANSWER _BUTTONS: LIST OF BUTTON CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] - BUTTONS WILL RESIZE TO SIZE OF LARGEST - IF NULL IS PASSED: A SINGLE BUTTON 'OK" WILL BE USED _WIDTH: WIDTH <IN PAGE UNITS> FOR THE DIALOG BOX - IF NULL, THE FIT WILL BE AS TIGHT AS THE BUTTONS (PLUS A BIT OF PADDING) - IF OVER MAX (MAX IS EQUIVELANT TO 600 PIXELS) THEN MAX IS USED - IF BUTTONS ARE WIDER THAN _WIDTH, THEN BUTTONS OVERRIDE - IF RESULT IS TALLER THAN WIDE, FLIP HEIGHT/WIDTH TO MAKE WIDER THAN TALL, - BUT ONLY IF WIDTH WAS NOT SPECIFIED _POSITION: POSITION IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREEN buttons fieldAsk BetterAsk_reply buttonClick buttonClick 4BetterAsk_reply >& CRLF & "fieldAsk" close Cancel fieldask PasteSpecial notifyafter PasteSpecial a = h,a)) T,a)) Please type your answer here... resizeButtons PasteSpecial buttonName = "b" & k -- RESIZE ALL TO FIT -- SHARED SCRIPT ON CONTROL RESIZING resizeButtons -- DETERMINE maxSizes = -- -- SPREAD prevButtonName = "b" & k-1 + 250 OF VIEWER -- lrPadding = 500 buttonSize = buttonGroupSize = -- MINIMUM ALLOWABLE _minimumsize = 3000 -- CALCULATE vWidth = Max( -- BECAUSE IS IN UNITS, CONVERT IT. FIELDFRAME ( ) TO FIT TIGHT - 150 -- CENTER pos = ( clientsize /2) - ( /2) - HEIGHT OF -- FIRST RESET * 8) [ * 3) DIRECTLY BELOW - TO SAME AS ABOVE * 8) ) TO minHeight = 700 * 6), UP OR DOWN TO FIT 5 = ' + ( HEIGTH OF NICELY + ( -- ADD DEFAULT ANSWER fieldASK = -- NOTIFYBEFORE HANDLERS WILL TAKE CARE OF betterRequestBox _caption, _icon, _text, _buttons, _width, _position -- _CAPTION: IS SELF EXPLANATORY -- _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) , NO 5 IS USED (TEXT SHIFTS TO OCCUPY AREA WHERE c WOULD HAVE BEEN -- _TEXT: REAL C, NO RTF -- _BUTTONS: LIST OF CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] = WILL RESIZE TO OF LARGEST IS PASSED: "OK" IS -- _WIDTH: <IN PAGE UNITS> FOR THE DIALOG BOX BE AS TIGHT AS (PLUS A BIT OF PADDING) IF OVER IS EQUIVELANT TO 600 PIXELS) THEN ARE WIDER THAN OVERRIDE IF RESULT IS TALLER 5, MAKE IT AS D AS IT WAS " - TO CHANGE ASPECT BUT ONLY IF SPECIFIC 4NOT SPECIFIED -- _POSITION: FROM CORNER OF SCREEN , IT BE CENTERED ON 4BetterRequest_reply betterRequest_reply = makeDialog mySysBook() -- IF TOO WIDEN ( _clientSize = "DialogRequest" resolution = sysPageUnitsPerPixel VIEWER IF NEEDED "dialogRequest" -- SHOW %Modal -- RETURN CLICKED BASED ON THIS SYSTEM VARIABLE betterAskBox answer, , NO OR RTF - AUTOSENSE -- _ANSWER: RAW AS DEFAULT <IN BE AS 98081419585211831596115571932 ASYM_TpID ASYM_TpID 98081419585211831596115571932 .-, 7 .-, " 1,(Kh resizeButtons notifyBefore resizeButtons = 360 .', 7 .', " 1,"Kh resizeButtons notifyBefore resizeButtons = 360 bookPattern <BookPath> :HDMEDIAPATH System MS Sans Serif MS Sans Serif MS Sans Serif dennyd info_LastSavedBy 8/2/01 10:42:28 AM info_LastSaved 9/13/01 11:07:45 AM MS Sans Serif 7/12/01 1:10:54 PM bookTransparent bookLineStyle 0,0,0 ASYMA_CustomColors :07:44 AM 39,90,96.0625 50,90,49 60,75.125,100 210,25.125,100 180,37.625,33.3125 180,85.3125,100 330,25.125,100 0,0,0 7/13/01 8:27:40 PM 7/12/01 1:12:23 PM 9/13/01 11:07:51 AM bookLineEndStyle bookLineEndSize bookFillColor bookStrokeColor bookUseWindowsColors none,none 39,90,96.0625 50,90,49 60,75.125,100 210,25.125,100 180,37.625,33.3125 180,85.3125,100 330,25.125,100 0,0,0 resizeButtons dialogRequest Page id 1 dialogAsk Page id 3 How to use... enterWindow enterWindow caretlocation = enterWindow enterWindow caretlocation = betterRequestBox messageBox dialogText Disk file info: filename= G:\PICTURES\001_1.jpg Page = 1 of 1 Width = 1536 pixels Height = 1024 pixels Size on disk = 358535 Bytes Number of colors per pixel = 24 X resolution = 72 dots per inch Y resolution = 72 dots per inch Imported file info: Width = 1024 pixels Height = 1536 pixels Size in memory = 4718592 Bytes Number of colors per pixel = 24 X resolution = 150 dots per inch Y resolution = 150 dots per inch ed to close the Dialog, NULL is returned. _CAPTION: IS SELF EXPLANATORY _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) - IF NULL, NO ICON IS USED AND TEXT SHIFTS TO OCCUPY - AREA WHERE ICON WOULD HAVE BEEN _TEXT: RAW TEXT OR RTF - WILL AUTOSENSE _BUTTONS: LIST OF BUTTON CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] - BUTTONS WILL RESIZE TO SIZE OF LARGEST - IF NULL IS PASSED: A SINGLE BUTTON 'OK" WILL BE USED _WIDTH: WIDTH <IN PAGE UNITS> FOR THE DIALOG BOX - IF NULL, THE FIT WILL BE AS TIGHT AS THE BUTTONS (PLUS A BIT OF PADDING) - IF OVER MAX (MAX IS EQUIVELANT TO 600 PIXELS) THEN MAX IS USED - IF BUTTONS ARE WIDER THAN _WIDTH, THEN BUTTONS OVERRIDE - IF RESULT IS TALLER THAN WIDE, FLIP HEIGHT/WIDTH TO MAKE WIDER THAN TALL, - BUT ONLY IF WIDTH WAS NOT SPECIFIED _POSITION: POSITION IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREEN ASYM_BeenHere is page is Page Only l Pages is Page Only l Pages buttons BetterRequest_reply buttonClick buttonClick 4BetterRequest_reply close plicate t yet resizeButtons I'm all done reading the help resizeButtons icon1 icon2 icon3 icon4 icon5 icon6 icon7 icon8 icon9 icon10 icon11 icon12 icon13 icon14 icon15 icon16 icon17 icon18 icon19 clifford dedmore@doubleclick[1].txt CLIFFO~1.TXT MUGU4KTE.HTM M0I0B97L.HTM MVOPNJVK.HTM MVG8FMLN.HTM MUH1CTFV.HTM M1VJCO70.HTM M1P6GO4E.HTM M1MMJT37.HTM O%[G README.TXT SchedLog.Txt SCHEDLOG.TXT wplog.txt WPLOG.TXT Normal.dot.LNK NORMAL~1.LNK Price List.xls.LNK PRICEL~1.LNK betterAskBox ASYM_BeenHere messageBox dialogText buttons fieldAsk BetterAsk_reply buttonClick buttonClick 4BetterAsk_reply >& CRLF & "fieldAsk" close fieldask PasteSpecial notifyafter PasteSpecial a = h,a)) T,a)) HOW TO USE: resizeButtons PasteSpecial Cancel Please type your answer here... HOW TO USE: The ASKREQST.SBK must be linked before you can call this new function. In ToolBook 4 & 5 use the Add Extensions option in your File Menu. In ToolBook 6 use the Bound System Books option in your File Menu. Example of function call: get betterAskBox( _caption, _icon, _text, _answer, _buttons, _width, _position) The value returned from the function is a String containing 2 textlines. - Textline 1 is the Caption of the button clicked. - Textline 2 is the text typed in by the user. However if X was used to close the dialog, NULL is returned. _CAPTION: IS SELF EXPLANATORY _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) - IF NULL, NO ICON IS USED AND TEXT SHIFTS TO OCCUPY - AREA WHERE ICON WOULD HAVE BEEN _TEXT: RAW TEXT OR RTF - WILL AUTOSENSE _ANSWER: RAW TEXT THAT YOU WANT DISPLAYED AS THE DEFAULT ANSWER _BUTTONS: LIST OF BUTTON CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] - BUTTONS WILL RESIZE TO SIZE OF LARGEST - IF NULL IS PASSED: A SINGLE BUTTON 'OK" WILL BE USED _WIDTH: WIDTH <IN PAGE UNITS> FOR THE DIALOG BOX - IF NULL, THE FIT WILL BE AS TIGHT AS THE BUTTONS (PLUS A BIT OF PADDING) - IF OVER MAX (MAX IS EQUIVELANT TO 600 PIXELS) THEN MAX IS USED - IF BUTTONS ARE WIDER THAN _WIDTH, THEN BUTTONS OVERRIDE - IF RESULT IS TALLER THAN WIDE, FLIP HEIGHT/WIDTH TO MAKE WIDER THAN TALL, - BUT ONLY IF WIDTH WAS NOT SPECIFIED _POSITION: POSITION IN PIXELS TO POSITION THE DIALOG FROM THE CORNER OF SCREEN - IF NULL, IT WILL BE CENTERED ON THE SCREEN mySysBook dialogRequest DialogRequest betterRequestBox _clientSize BetterRequest_reply makeDialog betterRequestBox mySysBook mySysBook dialogAsk _clientSize betterAskBox DialogAsk BetterAsk_reply makeDialog betterAskBox mySysBook dialogRequest DialogRequest betterRequestBox _clientSize BetterRequest_reply makeDialog betterRequestBox mySysBook mySysBook dialogAsk _clientSize betterAskBox DialogAsk BetterAsk_reply makeDialog betterAskBox .', " .', 7 .', 7 .', #> V, #> 1,"Fx 1,"En fl buttonGroup prevButtonName mySysBook dialogText itemOffset buttonName dialogRequest buttonGroupSize buttonFrame dialogViewer _minimumsize rresizeButtons buttons 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 maxSizes messageBox minHeight BetterRequest_reply {\rtf makeDialog resizeButtons reader Paste .', " .', 7 .', 7 .', #> V, #> 1,"Fl mySysBook buttonGroup prevButtonName BetterRequest_reply dialogText itemOffset buttonName fieldask buttonGroupSize buttonFrame dialogViewer _minimumsize rresizeButtons buttons fieldAsk 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 maxSizes messageBox minHeight dialogAsk {\rtf makeDialog resizeButtons betterRequestBox _caption, _icon, _text, _buttons, _width, _position -- _CAPTION: IS SELF EXPLANATORY -- _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) , NO 5 IS USED (TEXT SHIFTS TO OCCUPY AREA WHERE c WOULD HAVE BEEN -- _TEXT: REAL C, NO RTF -- _BUTTONS: LIST OF CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] = WILL RESIZE TO OF LARGEST IS PASSED: "OK" IS -- _WIDTH: <IN PAGE UNITS> FOR THE DIALOG BOX BE AS TIGHT AS (PLUS A BIT OF PADDING) IF OVER IS EQUIVELANT TO 600 PIXELS) THEN ARE WIDER THAN OVERRIDE IF RESULT IS TALLER 5, MAKE IT AS D AS IT WAS " - TO CHANGE ASPECT BUT ONLY IF SPECIFIC 4NOT SPECIFIED -- _POSITION: FROM CORNER OF SCREEN , IT BE CENTERED ON 4BetterRequest_reply betterRequest_reply = makeDialog mySysBook() -- IF TOO WIDEN ( _clientSize = "DialogRequest" resolution = sysPageUnitsPerPixel VIEWER IF NEEDED "dialogRequest" centerwindow -- SHOW %Modal -- RETURN CLICKED BASED ON THIS SYSTEM VARIABLE betterAskBox answer, , NO OR RTF - AUTOSENSE -- _ANSWER: RAW AS DEFAULT <IN BE AS AS IT - TO , IT 4BetterAsk_reply betterAsk_reply = -- IF "DialogAsk" "dialogAsk" viewerName linkDLL "tbwin. INT HorizontalDisplayRes() VerticalDisplayRes() xres = 8es() yres = vSize = xDiff = yDiff = newX = newY = - * 3) ) TO LY BELOW minHeight = 700 * 6), -- IF DOWN) IN BOUNDS OF /2) - ( + pos UP OR n TO FIT HEIGTH OF NICELY M + ( -- NOTIFYBEFORE HANDLERS WILL TAKE CARE OF makeDialog _caption, _icon, _text, _buttons, _width, _position -- USE THIS VARIABLE TO HOLD SELECTION (ONCE MADE) 4BetterRequest_reply r = "OK" "dialogRequest" mySysBook() Qy = -- WHAT IS CURRENT PAGEUNIT PER PIXEL SETTING? 15 OR 12 resolution = sysPageUnitsPerPixel -- TRUNCATE MORE THAN 10 BUTTON SPECIFICATIONS ) > 10 -- ENSURE WIDTH IS A NUMBER -- MAX WIDTHIS 600 PIXELS * 600) * 600 -- MAKE IT EASY ON MYSELF, -IZE THE OBJECT NAMES dialogViewer = dialogText buttonGroup buttonFrame B"messageBox" -- SET CAPTION -- ICON MUST BE A VALUE BETWEEN 1 AND 19, OTHERWISE LTO NULL itemOffset( "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19") -- APPEND TO _ICON TO GET REAL NormalGraphic B"Icon" -- POSITION TEXT FIELD AWAY FROM = 950 -- HIDE AS WE AREN'T USING IT -- MOVE OVER SO OCCUPIES SPACE = 250 = "{\rtf" richtext -- = "MS San Serif" -- -- fontcolor = "0,0,0" -- -- CONFIGURE BUTTONS B("b" & 1) numButtons = -- SHOW NEEDED buttonName = "b" & k -- RESIZE ALL TO FIT -- SHARED SCRIPT ON CONTROL RESIZING resizeButtons -- DETERMINE maxSizes = -- -- SPREAD prevButtonName = "b" & k-1 + 250 OF VIEWER -- lrPadding = 500 buttonSize = buttonGroupSize = -- MINIMUM ALLOWABLE _minimumsize = 3000 -- CALCULATE vWidth = Max( -- BECAUSE IS IN UNITS, CONVERT IT. FIELDFRAME ( ) TO FIT TIGHT - 150 -- CENTER pos = ( clientsize /2) - ( /2) - HEIGHT OF -- FIRST RESET Q * 8) * 3) h ) TO LY BELOW minHeight = 700 * 6), -- IF DOWN) IN BOUNDS OF /2) - ( " /2) 3 = + pos UP OR n TO FIT X = K + ( HEIGTH OF NICELY + ( -- ADJUST FOR < 15 = 15 < 15 = 15 -- NOTIFYBEFORE HANDLERS WILL TAKE CARE OF betterRequestBox _caption, _icon, _text, _buttons, _width, _position -- _CAPTION: IS SELF EXPLANATORY -- _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) , NO 5 IS USED (TEXT SHIFTS TO OCCUPY AREA WHERE c WOULD HAVE BEEN -- _TEXT: REAL C, NO RTF -- _BUTTONS: LIST OF CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] = WILL RESIZE TO OF LARGEST IS PASSED: "OK" IS -- _WIDTH: <IN PAGE UNITS> FOR THE DIALOG BOX BE AS TIGHT AS (PLUS A BIT OF PADDING) IF OVER IS EQUIVELANT TO 600 PIXELS) THEN ARE WIDER THAN OVERRIDE IF RESULT IS TALLER 5, MAKE IT AS D AS IT WAS " - TO CHANGE ASPECT BUT ONLY IF SPECIFIC 4NOT SPECIFIED -- _POSITION: FROM CORNER OF SCREEN , IT BE CENTERED ON 4BetterRequest_reply betterRequest_reply = makeDialog mySysBook() -- IF TOO WIDEN ( _clientSize = "DialogRequest" resolution = sysPageUnitsPerPixel VIEWER IF NEEDED "dialogRequest" -- SHOW %Modal -- RETURN CLICKED BASED ON THIS SYSTEM VARIABLE betterAskBox answer, , NO OR RTF - AUTOSENSE -- _ANSWER: RAW AS DEFAULT <IN BE AS AS IT - TO , IT 4BetterAsk_reply betterAsk_reply = -- IF "DialogAsk" "dialogAsk" betterRequestBox _caption, _icon, _text, _buttons, _width, _position -- _CAPTION: IS SELF EXPLANATORY -- _ICON: <NUMBER BETWEEN 1 AND 19> (OR NULL) , NO 5 IS USED (TEXT SHIFTS TO OCCUPY AREA WHERE c WOULD HAVE BEEN -- _TEXT: REAL C, NO RTF -- _BUTTONS: LIST OF CAPTIONS <AMPERSTANDS ALLOWED> [MAX 10] = WILL RESIZE TO OF LARGEST IS PASSED: "OK" IS -- _WIDTH: <IN PAGE UNITS> FOR THE DIALOG BOX BE AS TIGHT AS (PLUS A BIT OF PADDING) IF OVER IS EQUIVELANT TO 600 PIXELS) THEN ARE WIDER THAN OVERRIDE IF RESULT IS TALLER 5, MAKE IT AS D AS IT WAS " - TO CHANGE ASPECT BUT ONLY IF SPECIFIC 4NOT SPECIFIED -- _POSITION: FROM CORNER OF SCREEN , IT BE CENTERED ON 4BetterRequest_reply betterRequest_reply = makeDialog mySysBook() -- IF TOO WIDEN ( _clientSize = "DialogRequest" resolution = sysPageUnitsPerPixel VIEWER IF NEEDED "dialogRequest" -- SHOW %Modal -- RETURN CLICKED BASED ON THIS SYSTEM VARIABLE betterAskBox answer, , NO OR RTF - AUTOSENSE -- _ANSWER: RAW AS DEFAULT <IN BE AS AS IT - TO , IT 4BetterAsk_reply betterAsk_reply = -- IF "DialogAsk" "dialogAsk" makeDialog _caption, _icon, _text, _buttons, _width, _position -- USE THIS VARIABLE TO HOLD SELECTION (ONCE MADE) 4BetterRequest_reply r = "OK" "dialogRequest" mySysBook() Qy = -- WHAT IS CURRENT PAGEUNIT PER PIXEL SETTING? 15 OR 12 resolution = sysPageUnitsPerPixel -- TRUNCATE MORE THAN 10 BUTTON SPECIFICATIONS ) > 10 -- ENSURE WIDTH IS A NUMBER -- MAX WIDTHIS 600 PIXELS * 600) * 600 -- MAKE IT EASY ON MYSELF, -IZE THE OBJECT NAMES dialogViewer = dialogText buttonGroup buttonFrame B"messageBox" -- SET CAPTION -- ICON MUST BE A VALUE BETWEEN 1 AND 19, OTHERWISE LTO NULL itemOffset( "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19") -- APPEND TO _ICON TO GET REAL NormalGraphic B"Icon" -- POSITION TEXT FIELD AWAY FROM = 950 -- HIDE AS WE AREN'T USING IT -- MOVE OVER SO OCCUPIES SPACE = 150 = "{\rtf" richtext -- CONFIGURE BUTTONS B("b" & 1) numButtons = -- SHOW NEEDED buttonName = "b" & k -- RESIZE ALL TO FIT -- SHARED SCRIPT ON CONTROL RESIZING resizeButtons -- DETERMINE maxSizes = -- -- SPREAD prevButtonName = "b" & k-1 + 250 OF VIEWER -- lrPadding = 500 buttonSize = buttonGroupSize = -- MINIMUM ALLOWABLE _minimumsize = 3000 -- CALCULATE vWidth = Max( -- BECAUSE IS IN UNITS, CONVERT IT. FIELDFRAME ( ) TO FIT TIGHT - 150 -- CENTER pos = ( clientsize /2) - ( /2) - HEIGHT OF -- FIRST RESET - * 3) ) TO LY BELOW minHeight = 700 * 6), -- IF DOWN) IN BOUNDS OF /2) - ( + pos UP OR n TO FIT HEIGTH OF NICELY M + ( -- NOTIFYBEFORE HANDLERS WILL TAKE CARE OF makeDialog _caption, _icon, _text, _buttons, _width, _position -- USE THIS VARIABLE TO HOLD SELECTION (ONCE MADE) 4BetterRequest_reply r = "OK" "dialogRequest" mySysBook() Qy = -- WHAT IS CURRENT PAGEUNIT PER PIXEL SETTING? 15 OR 12 resolution = sysPageUnitsPerPixel -- TRUNCATE MORE THAN 10 BUTTON SPECIFICATIONS ) > 10 -- ENSURE WIDTH IS A NUMBER -- MAX WIDTHIS 600 PIXELS * 600) * 600 -- MAKE IT EASY ON MYSELF, -IZE THE OBJECT NAMES dialogViewer = dialogText buttonGroup buttonFrame B"messageBox" -- SET CAPTION -- ICON MUST BE A VALUE BETWEEN 1 AND 19, OTHERWISE LTO NULL itemOffset( "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19") -- APPEND TO _ICON TO GET REAL NormalGraphic B"Icon" -- POSITION TEXT FIELD AWAY FROM = 950 -- HIDE AS WE AREN'T USING IT -- MOVE OVER SO OCCUPIES SPACE = 250 = "{\rtf" richtext -- = "MS San Serif" -- -- fontcolor = "0,0,0" -- -- CONFIGURE BUTTONS B("b" & 1) numButtons = -- SHOW NEEDED buttonName = "b" & k -- RESIZE ALL TO FIT -- SHARED SCRIPT ON CONTROL RESIZING resizeButtons -- DETERMINE maxSizes = -- -- SPREAD prevButtonName = "b" & k-1 + 250 OF VIEWER -- lrPadding = 500 buttonSize = buttonGroupSize = -- MINIMUM ALLOWABLE _minimumsize = 3000 -- CALCULATE vWidth = Max( -- BECAUSE IS IN UNITS, CONVERT IT. FIELDFRAME ( ) TO FIT TIGHT - 150 -- CENTER pos = ( clientsize /2) - ( /2) - HEIGHT OF -- FIRST RESET Q * 8) * 3) h ) TO LY BELOW minHeight = 700 * 6), -- IF DOWN) IN BOUNDS OF /2) - ( " /2) 3 = + pos UP OR n TO FIT X = K + ( HEIGTH OF NICELY + ( -- ADJUST FOR < 20 = 20 < 20 = 20 -- NOTIFYBEFORE HANDLERS WILL TAKE CARE OF Paste clipboardFormats() pasteSpecial " makeDialog _caption, _icon, _text, _answer, _buttons, _width, _position -- USE THIS VARIABLE TO HOLD SELECTION (ONCE MADE) 4BetterAsk_reply n = "OK" "dialogAsk" mySysBook() BetterRequest_reply = -- WHAT IS CURRENT PAGEUNIT PER PIXEL SETTING? 15 OR 12 resolution = sysPageUnitsPerPixel -- TRUNCATE MORE THAN 10 BUTTON SPECIFICATIONS ) > 10 -- ENSURE WIDTH IS A NUMBER -- MAX WIDTHIS 600 PIXELS * 600) * 600 -- MAKE IT EASY ON MYSELF, -IZE THE OBJECT NAMES dialogViewer = dialogText buttonGroup buttonFrame B"messageBox" fieldAsk "fieldask" -- SET CAPTION -- ICON MUST BE A VALUE BETWEEN 1 AND 19, OTHERWISE LTO NULL itemOffset( "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19") -- APPEND TO _ICON TO GET REAL NormalGraphic B"Icon" -- POSITION TEXT FIELD AWAY FROM = 950 -- HIDE AS WE AREN'T USING IT -- MOVE OVER SO OCCUPIES SPACE = 150 = "{\rtf" richtext -- CONFIGURE BUTTONS B("b" & 1) numButtons = -- SHOW NEEDED buttonName = "b" & k -- RESIZE ALL TO FIT -- SHARED SCRIPT ON CONTROL RESIZING resizeButtons -- DETERMINE maxSizes = -- -- SPREAD prevButtonName = "b" & k-1 + 250 OF VIEWER -- lrPadding = 500 buttonSize = buttonGroupSize = -- MINIMUM ALLOWABLE _minimumsize = 3000 -- CALCULATE vWidth = Max( -- BECAUSE IS IN UNITS, CONVERT IT. FIELDFRAME ( ) TO FIT TIGHT - 150 -- CENTER pos = ( clientsize /2) - ( /2) - HEIGHT OF -- FIRST RESET * 8) [ * 3) DIRECTLY BELOW - TO SAME AS ABOVE * 8) ) TO minHeight = 700 * 6), UP OR DOWN TO FIT 5 = ' + ( HEIGTH OF NICELY + ( -- ADD DEFAULT ANSWER fieldASK = -- NOTIFYBEFORE HANDLERS WILL TAKE CARE OF mySysBook dialogRequest DialogRequest betterRequestBox ,centerwindow _clientSize BetterRequest_reply makeDialog betterRequestBox mySysBook mySysBook dialogAsk ,centerwindow _clientSize betterAskBox DialogAsk BetterAsk_reply makeDialog betterAskBox HorizontalDisplayRes 9VerticalDisplayRes vSize tbwin.DLL HorizontalDisplayRes VerticalDisplayRes centerwindow 1,"En fl buttonGroup prevButtonName mySysBook dialogText itemOffset buttonName dialogRequest buttonGroupSize buttonFrame dialogViewer _minimumsize rresizeButtons buttons 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 maxSizes messageBox minHeight BetterRequest_reply {\rtf makeDialog resizeButtons .-, " .-, 7 .-, 7 .-, #> V, #> 1,(Fx 1,(En .-, 7 .-, 7 buttonGroup prevButtonName mySysBook dialogText itemOffset buttonName dialogRequest buttonGroupSize buttonFrame dialogViewer _minimumsize rresizeButtons buttons 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 maxSizes messageBox minHeight BetterRequest_reply {\rtf makeDialog resizeButtons resizeButtons mySysBook dialogRequest DialogRequest betterRequestBox _clientSize BetterRequest_reply makeDialog betterRequestBox mySysBook mySysBook dialogAsk _clientSize betterAskBox DialogAsk BetterAsk_reply makeDialog betterAskBox mySysBook dialogRequest DialogRequest betterRequestBox _clientSize BetterRequest_reply makeDialog betterRequestBox mySysBook mySysBook dialogAsk _clientSize betterAskBox DialogAsk BetterAsk_reply makeDialog betterAskBox .', " .', 7 .', 7 .', #> V, #> 1,"Fx 1,"En fl buttonGroup prevButtonName mySysBook dialogText itemOffset buttonName dialogRequest buttonGroupSize buttonFrame dialogViewer _minimumsize rresizeButtons buttons 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 maxSizes messageBox minHeight BetterRequest_reply {\rtf makeDialog resizeButtons .-, " .-, 7 .-, 7 .-, #> V, #> 1,(Fx 1,(En .-, 7 .-, 7 buttonGroup prevButtonName mySysBook dialogText itemOffset buttonName dialogRequest buttonGroupSize buttonFrame dialogViewer _minimumsize rresizeButtons buttons 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 maxSizes messageBox minHeight BetterRequest_reply {\rtf makeDialog resizeButtons resizeButtons reader Paste .-, " .-, 7 .-, 7 .-, #> V, #> 1,(Fl mySysBook buttonGroup prevButtonName BetterRequest_reply dialogText itemOffset buttonName fieldask buttonGroupSize buttonFrame dialogViewer _minimumsize rresizeButtons buttons fieldAsk 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 maxSizes messageBox minHeight dialogAsk {\rtf makeDialog resizeButtons